﻿

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connString = "Server=127.0.0.1;Port=5432;Database=myDataBase;User Id=myUsername;Password=myPassword;"

        Dim conn As Npgsql.NpgsqlConnection = New Npgsql.NpgsqlConnection(connString)
        conn.Open()
        Dim comm = New Npgsql.NpgsqlCommand("update ....", conn)
        comm.ExecuteNonQuery()
        conn.Close()

        Dim dataAdapter = New Npgsql.NpgsqlDataAdapter("select .....", connString)
        Dim DataTable = New Data.DataTable()
        dataAdapter.Fill(DataTable)

    End Sub
End Class
